From: Michael I. Bushnell <mib@gnu.org>
Date: Fri, 20 May 1994 16:17:20 +0000 (+0000)
Subject: Only lusers assume that O_RDONLY == 0.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91473
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=73aa97044ac99f67a527ebee2a29822b52c70f46;p=emacs.git

Only lusers assume that O_RDONLY == 0.
---

diff --git a/src/lread.c b/src/lread.c
index d2b6a84304d..babeaa28682 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1,5 +1,5 @@
 /* Lisp parsing and input streams.
-   Copyright (C) 1985, 1986, 1987, 1988, 1989,
+   Copyright (C) 1985, 1986, 1987, 1988, 1989, 
    1993, 1994 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -562,7 +562,7 @@ openp (path, str, suffix, storeptr, exec_only)
 	      if (exec_only)
 		fd = (access (fn, X_OK) == 0) ? 1 : -1;
 	      else
-		fd = open (fn, 0, 0);
+		fd = open (fn, O_RDONLY, 0);
 
 	      if (fd >= 0)
 		{